home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 September & October / rerun-1987-09-10a.d64 / curs. comm. demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  13 lines
  1. 10 poke53280,11:gosub50
  2. 15 b$=chr$(peek(i)):ifb$="[136]"thenprinta$;"[144]";:end
  3. 20 printa$b$c$;:i=i+1:forj=1to52:next:goto15
  4. 25 poke53280,12:poke45,160:poke46,9:clr:gosub50:dima(2000)
  5. 30 getb$:ifb$=""then30
  6. 35 printa$b$c$;:pokei,asc(b$):i=i+1
  7. 40 ifb$="[136]"then55
  8. 45 goto30
  9. 50 poke53281,11:a$="[157][160][157]":c$="*":print"[147][159]"c$;:i=2560:return
  10. 55 poke252,(i/256):poke251,(i-(peek(252)*256))
  11. 60 poke46,peek(252):poke45,peek(251):run
  12. 65 rem cursor commotion by mark joerger. run 25 to input text, press f7 to end.
  13.